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Preface 



This publication gives general information 
about the OS PL/ 1 Optimizing Comjgiler, a 
processing program of the IBM Operating 
System. 

The information provided is to be used 
as a planning aid only, and is intended to 
introduce installation managers, systems 
analysts, and programmers to the facilities 
available with this compiler. The reader 
is assumed to be conversant with the IBM 
Operating System and with the PL/I language 
as implemented by version 5 of the PL/I (F) 
Compiler. 

Chapter 1 discusses how the performance 
of the OS PL/I Optimizing Compiler compares 
with that of version 5 of the PL/I (F) 
Compiler; the compiler options that are 
available; the debugging aids designed to 
increase programmer productivity; the 
degree to which the compiler is compatible 
with version 5 of the PL/I (F) Compiler; 
and the features designed to allow 
| communication with assembler programs and 
| with programs written in COBOL or FORTRAN. 

Chapter 2 is a discussion of the methods 
used for the optimization process,, such as 
expression simplification or the 



substitution of in-line code in place of 
calls to library subroutines. 

Chapter 3 is about the PL/I language 
itself, including the features that can be 
used with this compiler, and a comparison 
of the language implemented by the 
optimizing compiler with that implemented 
by version 5 of the PL/I (F) compiler. 

Chapter 4 briefly describes both the 
machine and the operating system 
requirements of the optimizing compiler. 

Appendix A is a list of the PL/I and the 
implementation-defined keywords used by 
this compiler. 

Appendix B documents the most 
significant incompatibilities that might 
cause a program written for version 5 of 
the PL/I (F) Compiler to give errors when 
run on the optimizing compiler. 

Appendix C is a bibliography of related 
IBM publications and their order numbers. 

Appendix D provides planning information 
for the use of the optimizing compiler 
under CMS. 
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Introduction 



The OS PL/I Optimizing Compiler is designed 
for the compilation of programs written in 
PL/I into efficient object programs, it 
requires a minimum of 50K bytes of main 
storage on an IBM System/360 or System/370 
with the universal instruction set and is 
intended to meet the requirements of the 
PL/I user of medium-sized or larger 
installations. Good all-round performance 
is achieved by a compiler design that 
incorporates the best design features of a 
number of well-proven compilers, including 
the PL/I (D),, PL/I (F) , FORTRAN IV (G) , 
FORTRAN IV(H), and COBOL (F) compilers. 
The main features include: 

• Extensive Optimization - if optional 
optimization is specified, the machine 
instructions generated will be optimized 
using the features described in chapter 
2, to produce a very efficient object 
program. some optimization is always 
performed even if the option is not 
specified. A secondary effect of 
optimization could be a reduction in the 
amount of main storage required for the 
object program during execution. If 
optional optimization is not specified,, 
compilation time will be reduced. 

• Advanced Level of PL/I - an 
implementation of PL/I with language 
extensions beyond the language 
implemented by the PL/I (F) Compiler. 
New features for OS users include: 

DEFAULT statement 

Entry variables 

File variables 

• Extensive Debugging Aids - time and 
effort required for program checkout are 
minimized by: 

Extensive implementation of on- units 

Support of the CHECK condition 

Data-directed input/output 

Comprehensive range of compiler options 

Clear and precise compile-time and 
execution-time diagnostic messages 

Optional statement number trace 
facilities 

| Optional statement frequency counting 
J facility. 



The OS PL/I Optimizing Compiler 
translates PL/I source statements into 
machine instructions. However, it does not 
generate all the machine instructions 
required to represent the source program; 
in some cases it inserts references to 
subroutines that are stored in the resident 
library. During link-editing, subroutines 
from the resident library are included in 
the object module. These subroutines may 
contain references to other subroutines 
stored in the transient library; during 
execution, subroutines from the transient 
library are loaded, executed, and discarded 
as required. 

The functions provided by the resident 
library are as follows: 

• mathematical subroutines. 

• data type conversions. 

• edit-, list-, and data-directed I/O 
(stream-oriented transmission). 

• program initialization. 

• storage management. 

• display. 

• timer facilities. 

• error handling. 

The functions provided by the transient 
library are as follows: 

• print and message subroutines of the 
error and interrupt handling 
subroutines. 

• opening and closing files. 

• record-oriented and stream-oriented 
transmission. 

These libraries are not an integral part 
of the OS PL/I Optimizing Compiler; they 
consist of the following separate IBM 
program products: 

• OS PL/I Resident Library, Program Number 
5734-LMU 

• OS PL/I Transient Library, Program 
Number 5734-LM5 

Throughout this publication the terms 
"resident library" and "transient library" 
refer to these IBM program products. 
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The OS PL/I Optimizing Compiler allows the 
programmer the choice of fast compilation 
of his source program or fast execution of 
the resulting object program. It does so 
by means of a compiler option specifying 
the type of optimization required. 

The compiler provides debugging aids to 
minimize the time and effort required for 
program checkout, options are provided for 
use by the programmer to specify 
information or to request optional compiler 
facilities. The compiler is compatible 
with version 5 of the pl/KF) compiler in 
terms of source language, except for a few 
minor differences, and there are features 
that allow programs compiled by the 
optimizing compiler to communicate with 
programs written in other languages. 



Compilation Speed 



compilation speed varies with the machine 
configuration, the version of the operating 
system, data set disposition, partition or 
region size, the complexity of the program, 
and the language features and compiler 
options employed. In general, faster 
compilation will be achieved with larger 
partitions or regions and minimum 
use of compiler options. Use of the IBM 
3330 Disk Storage for compiler residence 
and the compiler spill file can decrease 
compilation time. 

For programs that use the MACRO option 
only to include text from a source 
statement library, the INCLUDE option may 
be used instead, giving a decrease in 
compilation time. 

When optimization is requested, 
compilation times will increase by an 
average of 25%; in some cases, the increase 
may be as much as 100%. 



The total CPU time of a sample of 
commercially-oriented programs that had 
been optimized was 30% less than that of 
the same sample compiled by version 5 of 
the PL/I (F) Compiler with a range of 
saving on individual jobs between 0% and 
59%. 



Within the samples, the least 
improvement was typically shown by the 
shortest programs. The amount of 
improvement for any particular program 
depends on factors such as the overheads 
for initialization and input/output and the 
nature of the internal processing of the 
program. Programs most likely to show 
appreciable improvements in execution speed 
are those that contain features mentioned 
in chapter 2. 



Space Requirements 



The main storage requirements of the object 
programs produced by the optimizing 
compiler depend on the PL/I facilities 
used. Space is required not only for the 
object code generated by the compiler, but 
also for the resident library subroutines 
that will be link-edited with it. to form a 
load module and for the transient library 
subroutines that are called when this load 
module is executed. If optimization is 
specified, the object code will usually 
require less space. 



Debugging Aids 



The optimizing compiler provides the 
following debugging aids to minimize the 
time and effort needed for program 
checkout : 



Execution Speed 



During testing of the compiler with release 
20.1 of the operating system, the total CPU 
time during the execution steps of a sample 
of scientifically-oriented programs that 
had been optimized was 50% less than that 
of the same sample compiled by version 5 of 
the PL/I (F) compiler with a range 
of saving on individual jobs between 
0% and 63%. 



0i§;222s t ic s : Comprehensive diagnostic 
messages are provided during both 
compilation and execution. In processing 
an erroneous statement, the compiler may 
attempt to correct the error by making an 
assumption about the intention of the 
statement. Messages produced during 
compilation will be for errors in the 
categories of unrecoverable, severe error, 
error, warning, and informatory. The 
messages will be listed in category groups 
in ascending statement number order. Each 
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message will indicate the number of the 
erroneous statement and, when applicable, 
the part of the statement involved, the 
exact nature of the error, and any 
assumptions made and action taken by the 
compiler. 

Flow Trace: The flow trace facility can be 
used to produce a record of the changes in 
sequential flow prior to an interrupt. The 
trace is included as part of the diagnostic 
output produced by the SNAP option of the 
ON statement or by the PLIDUMP built-in 
subroutine. It contains a list of branch- 
out/branch- in pairs of statement numbers. 
The associated control block name (up to 8 
characters) is also given. The number of 
statements to be included in the flow trace 
is given by the user in requesting the 
option. This feature is in addition to the 
optional inclusion of the statement number 
in diagnostic messages produced at 
execution time. 

I §it§Lt® JS§Dt _F r egue nc y_C oun t i ng : This facility 

|can be used to identify those parts of a 

I program that are most heavily used and 

I those statements that are never used. The 

j statement count is given at program 

I termination on the PLIDUMP file. If the 

| PLIDUMP file does not exist, SYSPRINT is 

j used. 

P.DzySi£§: Program condition-handling is 
facilitated by the provision of on-units 
for all PL/I conditions. On-units permit 
either programmer-defined or system-defined 
action to take place when a particular 
interrupt occurs during execution. The 
range of conditions covers all arithmetic 
interrupts, input/output errors, and 
special program- checkout conditions such as 
CHECK, SUBSCRIPT RANGE, STRINGRANGE, SIZE, 
and STRINGS IZE. 



Compiler Options 



A number of compiler options are available 
for use by the programmer to specify 
information or to request optional compiler 
facilities. 

The options available may be used to: 

» Specify whether the source program is 
coded in the PL/I 48-character set or 
6 0-character set, or punched in BCD or 
EBCDIC format. 

« Specify the margins for source 
statements. 

* Specify a margin indicator character for 
source statements. 



Control progress into syntax checking 
depending upon the severity of the 
diagnostics from previous processing. 

Control progress beyond syntax checking 
depending on the severity of the 
diagnostics from previous processing. 

Specify whether full or short diagnostic 
messages are to be printed. 

List statement numbers of declarations 
(if applicable) and all attributes 
assigned to all identifiers in the 
program. 

List the external symbol dictionary. 

List implementation dependent 
information (for example, the length of 
structures) . 

Specify the number of lines to be 
printed on each page of output. 

Print block-levels and do-levels on the 
source program listing. 

List the options used by the compiler. 

List the source program. 

Specify the minimum severity level at 
which source program diagnostic messages 
will be printed. 

List statement numbers of declarations 
and of statements in which reference is 
made to all identifiers in the program. 

Specify that an object module is to be 
produced in a form suitable for input to 
the linkage editor. 

Specify that a NAME statement is to be 
produced for an object module. 

Indicate that the source program 
requires preprocessing. 

List source input to the preprocessor. 

Specify that the output from the 
preprocessor is to be generated in a 
card image format suitable for punching. 

Print the contents of registers and main 
storage in the event of compiler 
failure. 

Specify the amount of main storage 
available for compilation. 

Specify whether statement numbers are to 
be obtained by counting semicolons, or 
derived from line numbers. 

specify that selected output from the 



for a particular compilation. 

• Specify that the output from the 
compiler is to be generated in a card 
image format suitable for punching. 

• List the numbers of the last "n" 
discontinuities (for example CALL or GO 
TO) executed prior to an interrupt. 
These numbers are included in the output 
produced by the SNAP option. 

• Specify that diagnostic messages 
produced during execution are to contain 
source program line numbers. 

• Produce additional coding that will 
allow statement numbers from the source 
program to be included in messages 
produced during execution. 

• Print tables showing the organization of 
static storage for the object module. 

• Print statement numbers for statements 
internal to each procedure with their 
offsets relative to the primary entry 
point of the procedure. 

• Specify optional optimization or not. 

• Print a table giving the storage 
requirements for the object module. 



subroutines used must be called from the 
resident or transient library as 
appropriate. 



Compatibility between Releases 



Different release levels of the Optimizing 
Compiler and its libraries will produce 
compatible execution, provided that: 

1. The release level of the transient 
library is equal to or greater than 
that of the resident library. 

2. The release level of the resident 
library is equal to or greater than 
that of the compiler. 



Compatibility between OS and DOS 



Because the OS Optimizing Compiler 
implements more of the PL/I language than 
the DOS Optimizing Compiler, all source 
programs compiled on the DOS Optimizing 
Compiler can be compiled on the OS 
Optimizing Compiler, thus aiding the 
conversion from DOS to OS. 



Count the number of times that 
statements are executed. 

Indicate that the 5KINCLUDE statement is 
the only PL/I preprocessor statement 
used, permitting faster compilation 
without the use of the preprocessor. 

List the generated code for the whole 
program or for a specified range of 
statements. 



Interlanguage Communication 



Facilities are available which allow 
procedures compiled by the Optimizing 
Compiler to communicate at execution time 
with programs compiled by any of the 
following COBOL or FORTRAN compilers 
produced by IBM for the operating system. 

COBOL Compilers: 



Compatibility with the (F) Compiler 



COBOL (E) 
COBOL (F) 
COBOL ANS(FULL) 



Level E 
Level F 
Level F 



Source programs written for version 5 of 
the PL/I (F) Compiler can be compiled by 
the Optimizing Compiler and will be 
executed correctly without modification, 
except for a few minor differences between 
the implementations of the PL/I language 
for the two compilers. These differences 
are described in appendix B. 

Object modules produced by version 5 of 
the PL/I (F) compiler, and modules from the 
PL/I (F) Compiler subroutine library, 
cannot be incorporated into programs 
compiled by the optimizing compiler. All 
PL/I source modules must be recompiled with 
the Optimizing Compiler, and all library 



FORTRAN Compilers: 

FORTRAN IV (Basic) 
FORTRAN IV 



Level E 
Levels G 



and H 



Existing COBOL and FORTRAN users can 
write new applications in PL/I while still 
using existing libraries of COBOL and 
FORTRAN programs; in addition, existing 
applications can be modified by the use of 
PL/I procedures. 

Communication between PL/I programs and 
programs written in different languages is 
specified in the usual way, by a CALL 
statement. A FORTRAN program can be called 
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also by a function reference. 

The interlanguage communication 
facilities are obtained by specifying 
| ASSEMBLER, COBOL, or FORTRAN as an option 
in a PROCEDURE, ENTRY, or DECLARE 
statement. (See "Interlanguage 
Communication," in chapter 3.) 



Chapter 2: Optimization 



The main aim of the Optimizing compiler is 
to generate object programs that can be 
executed as fast as possible and that 
occupy as little space as possible during 
execution. In many cases this will involve 
generating efficient code for statements in 
the sequence written by the programmer; in 
other cases, however, the compiler may 
alter the sequence of statements or 
operations to improve the performance while 
producing the same result. 

The following types of optimization are 
carried out by the compiler: 

Common expression elimination 

Transfer of expressions from loops 

Redundant expression elimination 

Simplification of expressions 

Initialization of arrays and structures 

In-line code for conversions 

In-line code for RECORD I/O 

Key handling for REGIONAL data sets 

Matching format lists with data lists 

In-line code for string manipulation 

In-line code for built-in functions 

Special-case code for DO statements 

Structure and array assignments 

Library subroutines 

Elimination of common constants 

Elimination of common control data 

Use of registers 

Code for program branches 

Common Expression Elimination 



An expression can occur twice or more in 
such a way that the flow of control always 
passes through the first occurrence of the 
expression to reach a subsequent 
occurrence. A common expression is an 
expression that occurs more than once in a 
program but is obviously intended to result 



in the same value each time it is 
evaluated, that is, an expression that is 
identical to another, with no intervening 
modification to any operand. The compiler 
eliminates a common expression by saving 
the value of the first occurrence of the 
expression either in a temporary (compiler- 
generated) variable, or in the program 
variable to which the result of the 
expression is assigned. For example: 

XI = Al * Bl; 



Yl = Al * Bl; 

Provided that the values of Al, Bl, and XI 
do not change between the execution of 
these statements, the statements can be 
optimized to the equivalent of the 
following PL/I statements: 

XI = Al * El; 



Yl 



XI; 



If the first occurrence of the common 
expression involves the assignment of the 
value to a variable that is modified prior 
to the occurrence of the later expression, 
the value is assigned to a temporary 
variable. The example given above would 
become : 

TEMP = Al * Bl; 
XI = TEMP; 



XI = XI + 2; 



Yl = TEMP; 

Also, if the common expression occurs as a 
subexpression within a larger expression, a 
temporary variable is created to hold the 
value of the common subexpression. For 
example, in the expression Cl + Al * Bl a 
temporary variable would be created to hold 
the value of Al * Bl if this were a common 
subexpression. 

An important application of this 
technique occurs in statements containing 
subscripted variables where the same 
subscript value is used for each variable. 
For example: 

PAYTAX(MNO)=PAYCODE(MNO) *WKPM1NT(MN0) ; 
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The value of the subscript MNO is computed 
once only when the statement is executed. 
(The computation would involve the 
conversion of a value from decimal to 
binary if MNO were declared a decimal 
variable. ) 



Transfer of Expressions from Loops 



The expression SQRT(N) can be moved 
out of the loop to a position where it 
* s possible for the expression to be 
executed more frequently than it would 
be in its original position inside the 
loop. This undesired effect of 
optimization can be prevented by the 
use of the ORDER option for the block 
in which the loop occurs. 



Where it is possible to produce error-free 
execution without affecting the results of 
a program, the optimization process moves 
invariant expressions or statements from 
inside a loop to a point which immediately 
precedes the loop. An expression or 
statement occurring within a loop is said 
to be invariant if the compiler can detect 
that the value of the expression or the 
action of the statement would be identical 
for each iteration of the loop. A loop can 
be either a do-loop or a loop in a program 
that can be detected by the analysis of the 
flow of control within the program. For 
example: 

DO I = 1 TO N; 

B(I) = C(I) * SQRT(N); 

P = N * J; 

END; 

This loop can be optimized to produce 
object code corresponding to the following 
statements: 

TEMP = SQRT(N) ; 

P = N * J; 

DO I = 1 TO N; 

B(I) = C(I) * TEMP; 

END; 

If the programmer wishes this type of 
optimization to be carried out, he must 
specify the optimization option REORDER for 
a BEGIN or PROCEDURE block which contains 
the loop. If the option is not specified, 
the default option, ORDER, is assumed, and 
optimization is inhibited. 

P rogramming Considerations : 

1 . The transfer of expressions from 
inside a loop is performed on the 
assumption that every expression in 
the loop is executed more frequently 
than expressions immediately outside 
the loop. Occasionally this 
assumption fails, and expressions can 
be moved out of loops to positions 
where they are executed more 
frequently than they would have been 
if they had remained inside the loop. 
For example: 

DO I = J TO K WHILE (X(I)=0) ; 
X(I) = Y(I) * SQRT(N) ; 
END; 



2. Loops are detected by a flow- analysis 
process. This process can fail to 
recognize a loop, owing to the 
existence of flowpaths which the 
programmer knows will never be used. 
For example, the use of label 
variables can inadvertently cause 
optimization to be inhibited by making 
the recognition of a desired loop 
impossible. 



Redundant Expression Elimination 



A redundant expression is an expression 
that need not be evaluated for a program to 
be executed correctly. For example, the 
logical expression: 

(A=D) | (C=D) 

contains the subexpressions (A=D) and 
(C=D), the second of which need not be 
evaluated if the first is true. The effect 
of this optimization is to make the use of 
a compound logical expression in a single 
IF statement more efficient than an 
equivalent series of nested IF statements. 



Simplification of Expressions 



Simplification of an expression involves 
its conversion into a form that can be 
translated into more efficient object code. 
Where applicable, multiplication and 
division operations are converted into 
addition and subtraction operations, which 
can be performed by faster machine 
instructions. For example: 

DO I =1 TO N BY 2; 



A (I) = I * 4; 



END; 
This loop can be optimized to produce 



object code corresponding to the following 
statements: 

1=1; /* LOOP INITIALIZATION */ 
IF I > N THEN GO TO F; 
TEMP = 4 * I; 
G: /* LOOP ENTRY POINT */ 



A (I) = TEMP; 



/* EXPRESSION AFTER */ 
/* SIMPLIFICATION */ 



Base (A) + TEMP for array A, and 

Base(B) + TEMP for array B. 

A loop control variable and its iteration 
specification can be optimized only when 
the control variable used as a subscript is 
incremented by a constant value. The value 
of the control variable must not be 
required outside the loop in which it is 
specified. 



1=1+2; 

TEMP=TEMP + 8; 

IF I < N THEN GO TO G; 

/* END-OF-LOOP TEST */ 
F: /* LOOP EXIT POINT */ 



Modification of Loop Control Variables 



Defactorization 

Where possible, a constant in an array 
subscript expression is used as an offset 
in the address calculation. For example, 
the address of a four -byte element: 

AQ+10) 

would be calculated as: 

(Base (A) +4*10) +1*4. 



Where possible, the expression- 
simplification process will modify both the 
control variable and the iteration 
specification of a do-loop to achieve more 
efficient processing when the control 
variable is used as a subscript. The 
calculation of addresses of array elements 
can be made faster by replacing 
multiplication operations by addition 
operations. For example, the loop: 

DO I = 1 TO N BY 1; 
A (I) = BCD; 

END; 

causes N element values from array B to be 
assigned to corresponding elements in array 
A. On the assumption that each element is 
four bytes in length, the address 
calculations used for each iteration of the 
loop are: 

Base(A)+ (4*1) for array A, and 

Base(B)+ (4*1) for array B, 

where "Base" represents the base address of 
the array in storage. The repeated 
multiplication of the control variable by a 
constant representing the length of an 
element can be converted to faster addition 
operations. The optimized DO statement 
above is converted into object code 
equivalent to the following statement: 

DO TEMP = 4 BY 4 TO 4*N; 

The element address calculations are 
converted to the equivalent of: 



Replacement of Constant Expressions 



The expression-simplification process 
replaces constant expressions of the form 
A+B or A*B, where A and B are integer 
constants, with the equivalent constant. 
For example the expression 2+5 is replaced 
by 7. 



Replacement of Constant Multipliers and 
Exponents 



The expression-simplification process 
replaces certain constant multipliers and 
exponents. For example: 



and 



A* 2 becomes A+A, 



A** 2 becomes A*A. 



Initialization of Arrays and Structures 



When arrays and some structures which have 
the BASED, AUTOMATIC, or CONTROLLED storage 
class are to be initialized by a constant 
specified in the INITIAL attribute, the 
first element of the variable is 
initialized by the constant, and the 
remainder of the initialization consists of 
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a single move which propagates the value 
through all the elements of the variable. 
For example: 

DCL A(20,20) FIXED BINARY INIT( (400)0); 

The array A would be initialized in this 
way. 



In -Line Code for Conversions 



Most conversions are performed by in-line 
code, rather than by calls to the resident 
or transient library. The exceptions are: 

• Conversions between character and 
arithmetic data. 

• Conversions from numeric character 
(PICTURE) data where the picture 
includes characters other than 9» V, Z, 
or a single sign or currency character. 

• conversions to numeric character 
(PICTURE) data where the picture 
includes scale factors or floating point 
picture characters . 



For example, conversions to 
be done in-line. 



ZZ9V99' will 



string are not reconverted to fixed binary. 
(This conversion would otherwise be 
necessary to obtain the region number.) 



Matching Format Lists with Data Lists 



Where possible, format and data lists of 
edit-directed input/output statements are 
matched at compile-time. This is possible 
only when neither list contains repetition 
factors that are expressions whose values 
are unknown at compile-time. This permits 
conversion to or from the data list item to 
be performed by in-line code. Also, on 
input the item can be taken directly from 
the buffer or on output placed directly in 
the buffer. Library calls are eliminated 
except when it is necessary to transmit a 
block of data between the input/output 
device and the buffer, for example: 

DCL (A,B,X,Y, Z) CHAR(25); 

GET FILE (SYSIN) EDIT(X,Y,Z) (A(25)); 

PUT FILE(SYSPRINT) EDIT(A,B) (A(25)); 

In this example, format list matching is 
performed at compile time; at execution 
time, library calls will be required only 
when the buffer contents are to be 
transmitted to or from the input/outout 
device. 



In-Line Code for Record I/O 



For consecutive buffered files under 
certain conditions, the input/output 
transmission statements READ, WRITE, and 
LOCATE are implemented by in-line code 
rather than by calls to the resident or 
transient libraries. 



In-Line Code for String Manipulation 



Operations on many character strings (such 
as concatenation and assignment of 
adjustable, varying length, and fixed- 
length strings) are performed in-line. 
Similar operations on many aligned bit 
strings are performed by in-line code. 



Key Handling for REGIONAL Data Sets 



In certain circumstances, key handling for 
regional data sets is simplified by 
avoiding unnecessary conversions between 
fixed binary and character-string data 
types, as follows: 

REGIONAL(l) : If the key is supplied as a 
fixed binary integer with precision (12,0) 
through (23,0), there is no conversion from 
fixed binary to character- string and back 
again. 

REGIONAL(2) and REGIONAL (3) : If the key is 
supplied in the form K||I, where K is a 
character string and I is fixed binary with 
precision (12,0) through (23,0), the 
rightmost eight characters of the resultant 



In-Line Code for Built-in Functions 



Many built-in functions are executed by in- 
line code. INDEX and SUBSTR are examples 
of functions for which in-line code is 
usually generated. TRANSLATE, VERIFY, and 
REPEAT are examples where in-line code is 
generated for simple cases. 



Special-Case Code for DO Statements 



Where possible, for a do-loop, the 
Optimizing Compiler will generate code in 
which the value of the control variable and 
the values used in the iteration 
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specification are held in registers 
throughout execution of the loop. For 
example, the compiler* will attempt to 
maintain in registers the values of the 
variables I, K, and L in the following 
statement : 



WEEK_NO = WEEK_NO + 1; 
RECORD COUNT = RECORD COUNT + 



l; 



the 1 is stored once only provided that 
WEEK_NO and RECORD_COUNT have the same 
attributes. 



DO I = A TO K BY L; 

This form of optimization permits the most 
efficient loop control instructions to be 
used. 



Structure and Array Assignments 



Structure and array assignment statements 
are implemented by single move instructions 
whenever possible. Otherwise the 
assignment is performed by the simplest 
loop possible for the operands specified in 
the assignment. For example: 

DCL A(10),B<10), 1 S(10), 2 T, 2 U; 

A=B; 

A=T; 

The first assignment statement will be 
implemented by a single move instruction, 
while the second will be implemented by a 
loop, since array T is interleaved with 
array U, thereby making a single move 
impossible. 



Library Subroutines 



The resident and transient libraries have 
been designed as sets of subroutines 
containing logically-related functions. 
These functions are distributed among the 
library subroutines in such a manner that 
link-edited object program will contain 
only code likely to be necessary for the 
functions used in that program. 

The groups of functions particularly 
concerned with this efficient structuring 
include record-oriented input/output, 
stream-oriented input/output, conversions, 
and error handling. 



Elimination of Common Constants 



If a constant is used more than once in a 
program, a single copy of that constant is 
kept. For example, in the following 
statements: 



Elimination of Common Control Data 



The Optimizing Compiler generates control 
information to describe certain program 
elements such as arrays. If there are two 
or more similar arrays, this descriptive 
information is generated once only. 



Use of Registers 



More efficient execution of loops can be 
achieved by maintaining in registers the 
values of variables that are subject to 
frequent modification during execution of 
the loops. When program flow of control 
permits, values can be kept in registers, 
and considerable efficiency can be achieved 
by dispensing with time-consuming load-and- 
store operations to reset the values of 
variables in their storage locations. If 
the latest value of a variable is known not 
to be required after a loop has been 
executed, the value is not assigned to the 
storage location of the variable when 
control passes out of the loop. 

Register allocation can be more 
significantly optimized if REORDER is 
specified for the block. However, the 
values of variables that are reset in the 
block are not guaranteed to be the latest 
assigned values when a computational 
interrupt occurs, since the latest value of 
a variable may be present in a register but 
not in the storage location of the 
variable. If ORDER is specified, 
optimization of register allocation is 
impeded by the requirement that all values 
of variables reset in the block are 
guaranteed, and must therefore be assigned 
immediately to the storage locations of 
their respective variables. 



Code for Program Branches 



Base registers for branch instructions in 
the object program are allocated in 
accordance with the logical structure of 
the program. This minimizes the occurrence 
of program-addressing load instructions in 
the middle of deeply nested loops. 
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Also* the branch instructions generated 
for IF statements are arranged by the 
compiler to be as efficient as possible. 
For example, a statement such as» 

IF condition THEN GOTO label; 

is defined by the PL/ I language as being a 
test of the condition followed by a branch 
on false to the statement following the 
THEN clause. However, when the THEN clause 
consists only of a GOTO statement, the 
statement is compiled as a branch on true 
to the label specified in the THEN clause. 
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Chapter 3: The PL/I Language Implemented 



New language features, together with a 
number of extensions to the language 
implemented by version 5 of the PL/I (F) 
Compiler, have been included in the 
language implemented by the optimizing 
compiler. A list of the PL/I keywords 
implemented by the new compiler is given in 
appendix A. 

In general, a PL/I source program 
written for version 5 of the PL/I (F) 
Compiler will produce identical results 
when compiled by the Optimizing Compiler. 
In a few cases, results may differ because 
the Optimizing Compiler restricts some 
language features to a different degree, 
and because there are minor 
incompatibilities between the 
implementations of the language by the two 
compilers. The most significant 
differences in implementation restrictions 
are given in figure 1, and the 
incompatibilities are listed in appendix B. 



Operations 

• Assignment, with automatic conversion if 
necessary, between data variables. 

• Element, array, and structure 
expressions. 

• Arithmetic, comparison, logical 
(boolean) , and string-manipulation 
operators. 

• Built-in functions for mathematical and 
arithmetic computation, string 
manipulation, manipulation of based and 
controlled storage, manipulation of 
arrays, multitasking, and error 
handling. 

• Pseudovariables for computation and 
error handling. 

• Facilities for creating programmer- 
defined functions. 



Language Features 



Data Aggregates 



The language implemented by the optimizing 
compiler includes the following features : 



• Arrays of data elements 

• Structures of data elements 

• Arrays of structures 



Data Types 

• Character- string and bit-string data. 

• Fixed-point binary and fixed-point 
decimal data (real and complex) . 

• Floating-point binary and floating-point 
decimal data (real and complex) . 

• Character and (real and complex) decimal 
picture data. 

• Label and entry data. 

• File data. 

• Task and event data. 

• Pointer and offset data. 

• Area data. 



Program Management 



• Preprocessing. 

• Separate compilation of external 
procedures of the same program. 

• Structuring of program into blocks to 
limit the scope of names and to permit 
flexible allocation of storage. 

• Recursive invocations of a procedure 
with stacking and unstacking of 
generations of automatic data. 

• Multitasking facilities. 

• Maintenance of external procedures in 
auxiliary storage for dynamic loading 
into, and deletion from main storage 
during program execution. 
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Feature 


PL/I (F) Compiler 
(Version 5) | 


PL/I Optimizing Compiler 


AREA size 


32,768 


16,777,216 


Arrays, max. number of 
dimensions 


32 


15 


Structures 


63 levels | 


15 levels 


Floating-point data 


short, long precision 
decimal, binary and 
numeric character 
modes 


short, long, or extended* 
precision decimal, binary, and 
numeric character modes 


Factored attributes: 
DECLARE statement 


No limit 


max. number: 16 


Attribute factorization: 
nesting levels 


max. number: 73 


max. number: 16 


Block nesting 


max. depth: 50 


max. depth: 50 a 


Storage limitations: 
STATIC INTERNAL 
and AUTOMATIC 


maximum: 16M bytes 


No limit 


String repetition factor 
maximum number 
of characters: 
maximum value of 
factor: 


5 
16,370 


15 
32,767 


Depth of nesting of 

descriptor list in ENTRY 
statement 


max. number: 49 


| max. number: 2 


Identifiers in check list 


max. number: 510 


| limited only by size of statement 


Elements in data list 


max. number: 320 


| max. number: 250 


Length of string in REPLY 
option of DISPLAY statement 


max. length: 100 


| max. length: 72 



Facilities will be provided for the simulation of the extended" floating-point 
instruction set; the user can employ these simulation facilities should the 
system at his installation not contain the instruction set. 

There is a limit on the depth of block nesting imposed by the length of the block 
labels given by the user. If the average length of the labels exceeds eight 
characters, the maximum number of available nesting levels is reduced. 



Figure 1. Differences in implementation restrictions 



• Dynamic storage allocation. 

• Processing of interrupts and error 
conditions. 



internal and external forms of data 
representation . 

Record-oriented input/output with both 
move and locate modes of operation. 



Input/Output 



Sequential and direct-access processing 
modes. 



Stream-oriented input/output with 
automatic conversion to and from 



Message processing (teleprocessing) 
mode. 



1U 



Asynchronous input/output data 
transmission. 



DEFAULT Statement 



Language Extensions 



Language features implemented by the 
Optimizing Compiler that are only partially 
implemented or not implemented at all by 
version 5 of the PL/I (F) Compiler are 
described in outline below. 



Optimization 



The Optimizing Compiler carries out 
extensive optimization of PL/I programs. 
Optimization is controlled by a compiler 
option and the use within the PL/I program 
of the ORDER and REORDER options for 
program blocks. Optimization is discussed 
in chapter 2. 



Program Checkout 



CHECK Condition Prefix : Variables 
specified in the name-list of the CHECK 
condition may be of any problem data type. 
They must not be iSUB defined variables or 
explicitly-qualified based variables. They 
may also be parameters. For example: 

(CHECK (A,B,C,D>): 
F: PROC OPTIONS (MAIN) ; 
DCL A FIXED STATIC, 
B FLOAT AUTO, 
C CHAR (10) CONTROLLED, 
D FIXED DECIMAL BASED(P); 

CALL X (D) ; 

(CHECK (E) ) : 
X: PROC(E); 

DCL E FIXED DECIMAL; 

iSUB Beyond Range : The SUBSCRIPTRANGE 
condition is raised when an iSUB variable 
is outside the range given in the 
declaration of the iSUB-defined array. For 
example: 

DCL A (24) CHAR (4), 

B(5) CHAR(4) DEF A(U*1SUB) ; 

SUBSCRIPTRANGE would be raised on reference 
to B(6). 



Identifiers which are declared with only a 
partial set of attributes, or which are not 
explicitly declared, can derive any other 
attributes required from two sources: 

The standard default attributes 
supplied by PL/I. 

The default attributes specified in 
a DEFAULT statement. 

A DEFAULT statement can supplement, but 
not override, the attributes of selected 
groups of: 

Explicitly, contextually, or 
implicitly declared identifiers. 

Parameter descriptors in ENTRY 
descriptor lists. 

Values returned by functions. 

If there is no DEFAULT statement, or if 
a set of required attributes is still 
incomplete after the DEFAULT statement has 
been applied, any attributes required are 
supplied by the standard defaults. 

The DEFAULT statement cannot be used to 
specify a structure, although the 
attributes of structure elements can have 
defaults applied according to a RANGE 
specification . 

External entry names cannot be specified 
in a DEFAULT statement; they must be 
declared explicitly. 

Note : A DEFAULT statement may be given a 
label, but the label will be treated as if 
it were on a null statement. 



Preprocessing Facilities 



Assignment to Values : The RESCAN and 
NORESCAN options may be specified on 
%ACTIVATE and 56DEACTIVATE statements. The 
NORESCAN option enables the programmer to 
specify that an activated preprocessor 
character-string variable or entry name 
appearing in the source text is to be 
replaced by its actual value; that is, the 
usual rescanning process does not take 
place. If the RESCAN option is specified, 
the variable is activated as though no 
option were specified; rescanning takes 
place at each replacement level. For 
example: 

J5DCL WRITE CHARACTER; 



Chapter 3: The PL/I Language Implemented 15 



XWRITE = •WRITE EVENT(E)'; 

^ACTIVATE WRITE NORESCAN; 

WRITE FILE(F) FROM(X) ; 

The WRITE statement will be modified to: 

WRITE EVENT(E) FILE(F) FROM(X); 

If the ^ACTIVATE statement were omitted, 
replacement of WRITE would continue 
indefinitely, and the program would be 
meaningless. 

LENGTH and INDEX : The LENGTH and INDEX 
built-in functions may be used within a 
preprocessor statement. 



Listing Control Statements 



The listing control statements, %SKIP and 
%PAGE, allow the programmer to control the 
formatting and line spacing of the printed 
listing of his program. Although both 
these statements have the initial % sign, 
neither of them necessitates the use of the 
preprocessor. 

XPAGE: The statement following the 3&PAGE 
statement in the program listing is printed 
on the first line of the next page. The 
statement is applied to both the insource 
listing (the input to the preprocessor) and 
the source listing (the preprocessed text) . 

%SKIP[ (n) 3 : The specified number of lines 
following a 56SKIP statement in the program 
listing are left blank. "n" may be any 
integer from 1 through 99. Omission of a 
value for "n" is equivalent to specifying 
the value of 1. The statement is applied 
to both the insource listing (the input to 
the preprocessor) and the source listing 
(the preprocessed text). 



Storage Control 



Subscripted or Based Locator : The pointer 
and offset variables associated with based 
variables can be subscripted, or based, or 
both. 

Self -defining structures : Many of the 
restrictions imposed by the PL/I (F) 
implementation of the REFER option have 
been removed or modified in the language 
implemented by the Optimizing Compiler. 
The main changes are: 

• The REFER option can be used more than 
once in a based structure. 



If used only once in such a structure, 
it need not be used with the last 
element. 

The REFER object need not be fixed 
binary. 



For example; 



DCL 1 



BASED, 

M, 

N, 

Y(10 REFER (M) : 

S REFER (N) ) , 

(I, J), 

K, 

3 A AREA(S REFER (I)), 

3 STR CHAR(L REFER (J)) 

FLOAT BINARY INIT(2000), 

FIXED DECIMAL INIT(50); 



VAR, 



Loading procedures dynamically : A 
procedure invoked by a CALL statement, by a 
CALL option of an INITIAL attribute, or by 
a function reference, is normally resident 
in main storage throughout the execution of 
the entire program. External procedures 
(other than main procedures) may, however, 
be maintained in auxiliary storage. Copies 
of such procedures can be dynamically 
loaded into, and deleted from, main storage 
as required by the program. Fetching and 
releasing of the procedures are initiated 
by the new PL/I statements, FETCH and 
RELEASE. The new feature is particularly 
useful when a called procedure is not 
necessarily invoked every time the calling 
procedure is executed, and when 
conservation of main storage is important. 



ENVIRONMENT Attribute 



Changes and extensions to the options of 
the ENVIRONMENT attribute specifying record 
format, block size, and record size, are as 
follows: 



Record format : 

Block size: 
Record size: 



[F|FB|FBS|U|V|VB|VBS|VS| 
D|DB] 

[BLKSIZE(blocksize) 3 

(RECSIZE(recordsize) 3 



The ENVIRONMENT attribute need not 
necessarily specify any of the above 
options. Missing information may be 
supplied in a data-set label, a DD 
statement, or by default (at OPEN time). 
This means, for instance, that the 
programmer can specify record size in his 
source program while leaving specification 
of block size until the program is actually 
executed, when the I/O devices are known. 
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The Optimizing Compiler will recognize 
and convert the previously- implemented 
forms of the above options as shown below* 
and will issue a message stating that they 
are obsolete. 



Old form 

F(b) 

F(b,r) 

U(b) 

V(b) 

V(b,r) 

VBS(b,r) 

VS(b,r) 



Converted to 



F BLKSIZE(b) 
F BLKSIZE(b) 
U BLKSIZE(b) 

V BLKSIZE(b) 

V BLKSIZE(b) 



RECSIZE(b) 

RECSIZE(r) 

RECSIZE(b) 

RECSIZE(b-4) 

RECSIZE(r) 



VBS BLKSIZE(b) RECSIZE(r) 
VS BLKSIZE(b) RECSIZE(r) 



There are two new data-set organizations, 
TP(M) and TP(R), associated with 
teleprocessing. TP(M) implies the 
transmission of whole messages; TP(R) 
implies the transmission of records. Both 
are valid only for TRANSIENT files. These 
data- set organizations are equivalent to 
the options G(m) and R(r) available in 
version 5 of the PL/I (F) Compiler. The 
Optimizing Compiler will recognize and 
convert as follows: 



used to create or access a data set with 
records of this type. During creation, the 
length field is transmitted with the 
string; when being accessed, the first two 
bytes of the record are recognized as a 
length field. 

For a non-element varying- length string, 
for example, one that is an array or a 
member of a structure that is transmitted 
as a whole, the length field will always be 
transmitted both while being created and 
while being accessed. 

The option must not be specified for use 
with varying- length string records in data 
sets created by version 5 of the PL/I (F) 
Compiler, as this compiler neither creates 
nor recognises such a length field. 



The SCALARVARYING and CTLASA/CTL360 
options cannot be specified for the same 
data set. 



Old form 



Converted to 



Record-Oriented Transmission 



G(m) 
R(r) 



V TP(M) 

V TP(R) 



RECSIZE(m) 
RECSIZE(r) 



Variables in Options : Whenever a numeric 
value is required to complete the 
specification of an ENVIRONMENT option, the 
value may be expressed as a decimal integer 
constant or a static fixed binary variable 
of precision (31,0). The variable, if 
used, must be assigned a value before the 
file is opened. 

REREAD Option : The REREAD option 
backspaces a magnetic tape to the start of 
the data set when the associated file is 
closed. 

ASCII Option : The ASCII option specifies 
that American standard code for information 
interchange is used to represent data on 
the data set. 

BUFOFF Optio n: The BUFOFF option specifies 
the length of the block prefix fields that 
may be associated with records of an ASCII 
data set. 

SCALARVARYING Option: When storage is 
allocated for a varying- length string 
variable, the Optimizing Compiler adds two 
bytes, containing the current length of the 
string, to the declared length of the 
variable. The SCALARVARYING option 
determines how varying-length strings are 
transmitted to and from a data set. 

The option must be specified when locate 
mode statements (LOCATE and READ SET) are 



Record I/O Statements : The record variable 
specified in an INTO or FROM option can be 
DEFINED, or a parameter, provided the 
reference is to connected storage. The 
CONNECTED attribute is discussea later in 
this chapter. The reference may be a 
structure or array which contains varying- 
length strings. For example: 

DCL A (10) CHAR (6) VAR, 
1 B, 

2 C CHAR (3) VAR, 
2 D CHAR (16) VAR, 
E(10) CHAR (6) DEFINED A; 

READ FILE (X) INTO (A) ; 
READ FILE (X) INTO (B) ; 
WRITE FILE (X) FROM (E) ; 

CALL Z(A); 

Z: PROC (Y); 

DCL Y (10) CHAR (6) VAR; 
READ FILE (X) INTO (Y) ; 



ASCII Data Sets 



Data sets on magnetic tape whose data is 
represented in American standard code for 
information interchange (ASCII) may be 
created and accessed by a PL/ I program. 
The implementation supports F, FB, U, D, 
and DB record formats. F, FB, and U 
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formats are treated in the same way as data 
sets whose data is represented in EBCDIC 
(extended binary coded decimal interchange 
code) . The D and DB formats are equivalent 
to V and VB records. With the exception of 
the ENVIRONMENT attribute the same PL/I 
program may be used to handle an ASCII data 
set as would be used for a data set in 
EBCDIC form. (See, "ENVIRONMENT Attribute" 
earlier in this chapter.) 

Only character data may be written onto 
an ASCII data set. Varying-length strings 
cannot be transmitted to a data set using a 
SCALARVARYING file. Since an ASCII data 
set must be on magnetic tape it must be of 
CONSECUTIVE organization. 



File Names 



File- Name Expressions ; File names can be 
specified, in input/output statements, as 
expressions: 



For example: 



DCL B(10) FILE, 
X(Q) FILE; 



GET FILE (FILEA) ; 

PUT FILE (B(6) )....; 
READ FILE (X(N*3) ) . . . . ; 

File-Name Constants and Variables : File 
names can be declared as file constants or 



Data Aggregates 



Array and Structure Operations : A 
reference can be made to both an array and 
a structure in the same expression or 
assignment provided that the target is an 
array of structures. 



String Handling 



STRINGSIZE Condition : If a string is 
assigned to a string shorter than itself, 
the source string is truncated on the right 
to the length of the target string, and the 
STRINGSIZE condition is raised. For 
example : 

(STRINGSIZE): P: PROC; 
DCL A CHAR (20) , 
B CHAR (1*1); 
B = A; /* STRINGSIZE IS RAISED, A IS 

TRUNCATED ON ASSIGNMENT TO B */ 

BASED or DEFINED with a VARYI NG Attribute : 
A variable declared with the BASED or 
DEFINED attribute may also be given the 
VARYING attribute. For example: 

DCL C CHAR (10) BASED (P) VARYING, 
B CHAR(12) VARYING, 
D CHAR (12) VARYING DEFINED B; 



Data Attributes 



file variables. An identifier is assumed 
to be a file constant if: 

1. It is declared with any file attribute 
other than FILE. 

2. It is not explicitly declared but 
appears in the FILE option of an 
input/output statement, or in an ON 
statement for an input/output 
condition. 

It is assumed to be a file variable if: 

1. It has the FILE attribute and is an 
element of a structure. 

2. It has the FILE attribute and any of 
the following additional attributes: 

STATIC j AUTOMATIC | BASED | CONTROLLED 

Dimension 

Parameter 

ALIGNED | UNALIGNED 

DEFINED 

INITIAL 

VARIABLE 



The CONNECTED Attribute : This is a storage 
attribute of non-controlled data aggregate 
parameters. It specifies that the storage 
associated with the aggregate is 
contiguous, that is, not interleaved with 
storage for other variables. This allows 
the aggregate to be designated as a record 
variable or a base in string overlay 
defining. For example: 

Q: PROC (X,Y); 

DCL A FILE RECORD ENVIRONMENT 
(F BLKSIZE(40)RECSIZE(H0)), 
X (10) CHAR (4) CONNECTED, 
1 Y CONNECTED UNALIGNED, 
2 R, 



S, 
T, 
U, 



G CHAR (40) DEF X; 



READ FILE (A) INTO (X) ; 



SUBSTR (G,28,8)=....; 
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WRITE FILE (A) FROM (X) ; 



CALL B (Y) ; 



B: PROC (Z) RETURNS (DECIMAL); 
DCL 1 Z CONNECTED UNALIGNED, 
2 RR, 

2 SS, 

3 TT, 
3 UU; 



END Q; 

lnitialization_bY m Exgressign_gr_Function; 
The initial value of a non-STATIC~variable 
declared with the INITIAL attribute can be 
derived from sources other than a constant. 
The source may be an expression or a 
function reference; on evaluation, the 
value derived is the initial value of the 
variable. For example: 

DCL B AUTOMATIC INITIAL (F (X) ) , 
C INITIAL(SQRT(3>) ; 

Variables and function references used in 
these expressions must be known in the 
block in which the initialized item is 
declared. 



Extended_Precision_Floating_Point 

Where the extended precision feature is 
available, the maximum precisions are: 

Binary floating-point data 109 

Decimal floating-point data 33 

The default precision for floating-point 
data remains as for version 5 of the PL/I 
(F) Compiler, that is binary 21, decimal 6, 



Subroutines and Functions 



There is greater flexibility in the use of 
entry names. An entry name can be either 
an entry constant or an entry variable. 

Ent ry__Cons tant : An identifier specified as 
a label prefix to a PROCEDURE or ENTRY 
statement is an entry constant. For 
example: 

X: PROC; 

Y: ENTRY; 



X and Y are entry constants. They can be 
explicitly declared with the ENTRY 
attribute only if external. 



F2try_Var iable : An identifier specified 
with the ENTRY attribute and any of the 
following attributes, which must be 
explicitly declared, is an entry variable. 

VARIABLE 

STATIC | AUTOMATIC | BASED | CONTROLLED 

Dimension 

Parameter 

ALIGNED | UNALIGNED 

DEFINED 

INITIAL 

For example: 

DCL X ENTRY (FIXED, BINARY, DECIMAL) 
VARIABLE, 
Y ENTRY (CHAR) AUTO, 
Z (10) ENTRY; 

Entry variables may be assigned, passed as 
arguments, and used in CALL statements and 
function references. 

En t ry_Names_and_Gener ic_Names : The GENERIC 
attribute has been altered to permit the 
entry names specified in a generic 
declaration to be dissociated from the 
generic name. The specification of an 
identifier as an alternative in a generic 
declaration does not constitute a 
declaration of the identifier; the 
occurrence of the identifier is regarded 
simply as an entry expression that 
describes the entry name of the 
corresponding procedure. For each entry 
expression alternative, a descriptor list 
is specified by means of a WHEN clause. 
Defaults are not applied to the descriptors 
in WHEN clauses. As a result the generic 
specification is much more flexible in 
that: 

1. An identifier can be specified as more 
than one alternative in a GENERIC 
declaration, or in more than one 
GENERIC declaration. 

2. The descriptor list need only 
partially describe the argument that 
must be matched in the generic 
reference. It can indicate that any 
argument is acceptable. 

For example: 

DCL X GENERIC (A WHEN (FIXED, FIXED)); 

If the arguments to the generic reference X 
are both FIXED, then A is selected. If the 
specification had been 

A WHEN (, FIXED) 
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then any type of argument would be 
acceptable as the first argument, but the 
second would have to be FIXED. 

Generic selection is performed thus: 

1. The alternatives are scanned from left 
to right until a WHEN clause is found 
which matches the arguments in the 
generic reference. "Matching" occurs 
when there are the same number of 
descriptors in the WHEN clause as 
there are arguments, and when each 
descriptor in the WHEN clause 
specifies a subset of the attributes 
of the corresponding argument. 

2. The entry expression in the 
alternative that contains the 
appropriate WHEN clause is then 
invoked with the arguments in the 
generic reference. The invocation may 
involve the conversion of arguments 
and the creation of dummy arguments. 



For example: 

DCL X GENERIC (A WHEN 
A WHEN 
B WHEN 

Y GENERIC (A WHEN 
A WHEN 
C WHEN 

Z GENERIC (A WHEN 
B WHEN 

(Ll,L2) FIXED, 

(Ml,M2) FLOAT, 

S COMPLEX; 



(FIXED, FLOAT) , 
(FIXED, FIXED), 
(FLOAT, COMPLEX)), 
(FLOAT, FLOAT) , 
( , FLOAT) , 

(,)), 

(FIXED,FIXEDV, 
(FLOAT, COMPLEX)), 



CALL X (Ll,Ml) ; 

CALL X (Ll,L2) ; 

CALL X (M2,S) ; 

CALL X (Ml,M2) ; 



CALL Y (Ml,M2) ; 
CALL Y (Ll,Ml) ; 
CALL Y (S,L1) ; 



/* A IS SELECTED */ 
/* A IS SELECTED */ 
/* B IS SELECTED */ 
/* NO MATCHING ARGUMENTS, 

NO SELECTION. 

PROGRAM IS ERRONEOUS*/ 
/* A IS SELECTED */ 
/* A IS SELECTED */ 
/* C IS SELECTED */ 



Ml = Z (L1,L2); /* A IS SELECTED */ 

M2 = Z (L1,M2); /* NO MATCHING ARGUMENT, 

NO SELECTION. 

PROGRAM IS ERRONEOUS*/ 
Ml = Z (M2,S); /* B IS SELECTED */ 



Mathematical Built-in Functions 



New mathematical built-in functions, 
ASIN(x) and ACOS(x),, are available for 
computing arc sines and arc cosines. Only 
real arguments are allowed. 



Comparison_Operators 



The = and A= operators may be used to 
compare any data type other than area, 
condition, event, or task type. 



IOterlan2uage_Cgmmunication 



Th§_OPTIONS_Attr ibute/Opt ion : The 
interlanguage communication facilities are 
reguested in a PL/I procedure by specifying 
the COBOL or FORTRAN option in the 
PROCEDURE or ENTRY statement or in the 
OPTIONS attribute in a DECLARE statement. 

| OPTIONS (ASSEMBLER) can be specified in a 

I DECLARE statement. 

The remapping of COBOL structures, and 
the transposing of FORTRAN arrays, can be 
completely or partially suppressed by the 
NOMAP,, NOMAPIN, or NOMAPOUT options. 

The INTER option is used to specify that 
the assembler-language, COBOL and FORTRAN 
interrupts that would normally be handled 
by the operating system are to be handled 
by the PL/I interrupt handling facilities. 
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Chapter 4: System Requirements 



given in the publication System Generation, 
Order No. GC28-6554. 



The minimum machine requirements for the OS 
PL/I Optimizing Compiler are supplied by an 
IBM System/360 Model 40 with a main storage 
capacity of 128K bytes. The compiler will 
operate in a 50K partition 

| under MFT, in a 52K region under MVT„ or in 
| a 7 2K region with the Time sharing Option 
I (TSO) . Under VSl and VS2, the partition or 
I region sizes are rounded up to a multiple 
| of 64K. The compiler will also operate 
I under the control of the Conversational 
| Monitor System (CMS) of the Virtual Machine 
I Facility/ 370 (VM/370) and needs 32 OK bytes 
j of virtual storage for the CMS virtual 
I machine. 

The central processing unit of the 
machine must have the decimal and floating- 
point instruction sets. If timing 
information is required,, the central 
processing unit must have the timer 
feature,, and use of this feature must be 
specified at system generation. 



EXECUTION 



| The storage requirements, either real or 

| virtual,, for the execution of a PL/I 

| program compiled by the optimizing compiler 

j depend on the size and content of the 

| source program. The real storage 

j requirements may be reduced either by the 

| use of the VSl or VS2 control programs or 

j by use of the overlay facilities for 

j handling segmented object programs. 

The machine must have the decimal 
instruction set. Where the extended 
precision floating point feature is 
available it must have also the floating- 
point instruction set. If timing 
information is required, the machine must 
have the timer feature, and use of this 
feature must be specified at system 
generation. (If the DELAY statement is 
used, the ability to handle the interval 
timer from the application program must 
also be specified at system generation.) If 
the DATE built-in function is used, the OS 
control program should have date facilities 
incorporated at system generation. 

Full details of system generation are 



AUXILIARY STORAGE 



Direct-access storage space is required in 
the link library for the optimizing 
compiler and its libraries as follows: 

• Compiler: approximately 430 tracks on 
a 2311, 240 tracks on a 2314, or 130 
tracks on a 3330. 

• Resident library: approximately 60 
tracks on a 2311, 33 tracks on a 2314, 
or 20 tracks on a 3330. 

• Transient library: approximately 60 
tracks on a 2311,, 31 tracks on a 2314, 
or 18 tracks on a 3330. 

The Optimizing Compiler requires 
direct-access storage space for working- 
storage only when adequate main storage is 
not available. The amount required depends 
upon the size of the source program and the 
amount of main storage available to the 
compiler. The data set identified by 
SYSUTl is used for this auxiliary storage. 
This data set is also used when the 
preprocessor is invoked and when the PL/I 
48-character set is used in the source 
program. 



INPUT/OUTPUT DEVICES 

At compile time and during subsequent link- 
editing, devices are required for the 
following types of input/output: 

Source program input 

Printed listings 

Object module in relocatable format 

Object module in relocatable 1 , card-image 
format 

The ddname associated with a particular 
class of compiler input/output, and the 
permitted device types for each, are shown 
in figure 2. 
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Function 



| ddname 
SYSIN 



SYSPRINT 



SYSLIN 



SYSPUNCH 



SYSUTl 



SYSLIB 



| Device Type 



j When Required 



Input 



Print 



Output to 
Linkage Editor 



Output to 
Linkage Editor 
(card deck) 

Compiler Spill 
File 

Source 

Statement 

Library 



DASD 

Magnetic tape 
Card reader 
Paper-tape reader 

DASD 

Magnetic tape 
Printer 

DASD 
Magnetic tape 



DASD 

Magnetic tape 
Card Punch 

DASD 



DASD 



Always 



Always 



When link-editing 
follows compilation in 
the same job. 

When link-editing 
takes place in a 
subsequent job. 

When adequate main 
storage is not available 

When preprocessor 
^INCLUDE is used with 
either MACRO or INCLUDE 
option 



Figure 2. compiler input/output devices 



Operating System Requirements 



The Optimizing Compiler is a component of 
the IBM Operating System. The control 
programs that the compiler will run under, 
and the data management facilities that may 
be required, are detailed below. 



CONTROL PROGRAMS 



The Optimizing Compiler can be used 
under the following control programs: 

Multiprogramming w^ 

Tasks. (MFT) : The number of tasks that can 
be processed at any one time is determined 
by the number of partitions (segments of 
main storage) that exist at that time. 
Each task is associated with one partition, 
and receives a share of the available 
resources . 

I ¥irtual_s toracje_( VS12. : This control 
| program is the virtual-storage equivalent 
| of the MFT control program described above, 
j In general, a source program that compiles 
land executes successfully under MFT will do 
|the same under VSl. 

I: 

| The PL/I multitasking facilities should 
I not be used under an MFT or VSl control 
program. 



Multiprogramming with a Variable number of 
Tasks (MVT) : The number of tasks that can 
be processed at any one time is determined 
by the number of regions (segments of main 
storage) plus the number of tasks created 
dynamically in all the regions. Each 
region is associated with a task and with 
all the subtasks it creates dynamically. 
Each task receives a share of the 
resources; subtasks use the resources 
allocated to the task that created them. 

I Y.i rt ual_Stgr age__(VS 2J_ : This control 
| program is the virtual-storage equivalent 
| of the MVT control program described above. 
| In general, a source program that compiles 
land executes successfully under MVT will do 
| the same under VS2. 

Other operating system options under 
which the compiler can run are: 

Ti me_Sha r i ng_Opti on_^TSO)_ : This option is 
available only to MVT or VS2 users and 
requires a region approximately 2 OK bytes 
larger than for MVT. The option provides: 

• The ability to use subcommands that 
allow interaction with a PL/I program 
during processing. 

• Facilities for several users to share a 
region of main storage for the 
concurrent execution of their programs. 
Each terminal in session is granted 
exclusive use of the region for a series 
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of short time slices. 

Mult ipr oc essi ng_jM 6 5MP)^ : Provides support 
for multiprocessing with two Model 65s. 

I Conversational Monitor System (CMgO : see 
I appendix D for further details. 



SMI) and pass records to be sorted, or 
receive sorted records,, or both pass and 
receive records. 



CHECKPOINT/RESTART FACILITIES 



DATA MANAGEMENT FACILITIES 

Object programs compiled by the optimizing 
compiler make use of the operating system 
data management facilities. These 
facilities are dependent on the I/O 
statements used and include: 

Basic Sequential Access Method (BSAM) 

Queued Sequential Access Method (QSAM) 

Basic Indexed Sequential Access Method 
(BISAM) 

Queued Indexed Sequential Access Method 
(QISAM) 

Basic Direct Access Method (BDAM) 

Telecommunication Access Method (TCAM) 

| Virtual storage Access Method (VSAM) 



SORT FACILITIES 



The PL/I program may contain statements to 
invoke the operating system Type 1 
Sort/Merge program (3 60S-SM-023) or the 
program product Sort/Merge program (5734- 



The PL/I program may contain a statement to 
invoke the checkpoint facility to record 
the current status of a program and its 
data in auxiliary storage. The checkpoint 
data can be used by the restart facility to 
restart the program at the point in 
execution when the checkpoint was taken. 



System/370 Facilities 

The following control programs, operating 
systems, input/output devices, and access 
method can be used only with System/370: 

VSl (Virtual Storage) control program. 

VS2 (Virtual Storage) control program. 

Conversational Monitor System (CMS). 

The 3330 Direct-Access storage Device. 

The 3505 Card Device. 

The 3525 Card Device. 

VSAM (Virtual storage Access Method) . 

The availability of the optimizing 
compiler with these features is stated in 
the publication IBM Program_Product Design 
Objectives, Order No. GC33- 00367 
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The following is a complete list of the PL/I and implementation-defined keywords 
implemented, with exceptions, by both the OS PL/I Optimizing Compiler and the OS PL/I 
Checkout Compiler. The keywords not implemented by the Optimizing Compiler are indicated 
by an asterisk. Each of the keywords is described in detail in the publication 
OS PL/ I Checkout and Optimizing Compilers i Language Reference Manual . 



Keyword 

A[(w)] 

ABS (x) 

ACOS(x) 

^ACTIVATE 

ADD(Xj.,x 2 , x 3 [,x 4 ]) 

ADDBUFF 

ADDR(x) 

ALIGNED 

ALL [(character- 
string-expression)] * 

ALL(x) 

ALLOCATE 

ALLOCATION (x) 

ANY(x) 

AREA 

AREAt(size)] 

ARGn 

ASCII 

ASIN(x) 
(ASSEMBLER 

ATAN(x ± [,x a ]) 

ATAND(xa.[,x a ]) 

ATANH (x) 

ATTENTION * 

AUTOMATIC 

B[(W)] 

BACKWARDS 

BASED t (locator- 
expression) ] 

BEGIN 

BINARY 

BINARY(Xi t, x a [,x 3 ] ] ) 

BIT I (length)] 

BIT(x x [,x a ]) 

BLKSIZE (block-size) 

BOOL ( x x , x a , x 3 ) 

BUFFERED 

BUFFERS (n) 

BUFOFFC(n)] 

BUILTIN 

BY 

BY NAME 

C (real- format-item 

[ , real-format- item] ) 
CALL 
CEIL(x) 
CHAR(x x [,x a ]) 
CHARACTER [ (length) ] 
CHECK * 

CHECK [ (name-list) ] 
CLOSE 



Abbreviation 



%ACT 



ALLOC 
ALLOCN 



ASM 



ATTN 
AUTO 



BIN 
BIN(Xi[ f Xa[,x 3 ]]) 



BUF 



CHAR ((length)] 



Use of Keyword 

format item 

built-in function 

built-in function 

preprocessor statement 

built-in function 

option of ENVIRONMENT attribute 

built-in function 

attribute 

option of PUT statement 

built-in function 

statement 

built-in function 

built-in function 

condition 

attribute 

option of NOMAP, NOMAPIN, NOMAPOUT options 

option of the ENVIRONMENT attribute 

built-in function 

option of OPTIONS option/attribute 

built-in function 

built-in function 

built-in function 

condition 
attribute 
format item 

attribute, option of OPEN statement 
attribute 

statement 

attribute 

built-in function 

attribute 

built-in function 

option of ENVIRONMENT attribute 

built-in function 

attribute 

option of ENVIRONMENT attribute 

option of ENVIRONMENT attribute 

attribute 

option of DO statement, option of 

repetitive input/output specification 
option of assignment statement 
format item 

statement, option of INITIAL attribute 
built-in function 
built-in function 
attribute 

statement 
condition, condition prefix 
statement 
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Keyword 




Abbreviation 


COBOL 






COLUMN (n) 




COL(n) 


COMPLETION (x) 




CPLN(x) 


COMPLEX 




CPLX 


COMPLEX (x ± ,x a ) 




CPLX(x lf x a ) 


CONDITION 




COND 


CONDITION (name) 




COND(name) 


CONJG(x) 






CONNECTED 




CONN 


CONSECUTIVE 






3SCONTROL * 






CONTROLLED 




CTL 


CONVERSION 




CONV 


COPYl (file-express 


ion)] 




COS(x) 






COSD(x) 






COSH(x) 






COUNT (file- express 


ion) 




CTLASA 






CTL360 






D 






DATA 






DATAFIELD 






DATE 






DB 






^DEACTIVATE 




3JDEACT 


DECIMAL 




DEC 


DECIMAL (x t [ ,x a T , X 3 


]]) 


DEC(Xit,X a [,X 3 ]]) 


DECLARE 




DCL 


XDECLARE 




%DCL 


DEFAULT 




DFT 


DEFINED 




DEF 


DELAY 






DELETE 






DESCRIPTORS 






DIM(Xi,x a ) 






DIRECT 






DISPLAY 






DIVIDE (x ± ,X a ,x 3 [ ,x 


<J> 




DO 






XDO 






E(w,d[,s]) 






EDIT 






ELSE 






5SELSE 






EMPTY 






END 






%END 






ENDFILE (file- expression) 




ENDPAGE(f ile-expre 


ssion) 




ENTRY 






ENVIRONMENT 




ENV 


ERF(x) 






ERFC(x) 






ERROR 






EVENT 






EXCLUSIVE 




EXCL 


EXIT 






EXP(x) 







pseudovariable 
pseudovariable 



Use of Key word 

option of ENVIRONMENT attribute, or 

OPTIONS option/attribute 
format item 
built-in function, 
attribute 
built-in function, 
attribute 
condition 
built-in function 
attribute 
option of ENVIRONMENT attribute 

listing control statement 
attribute 

condition, condition prefix 
option of GET statement 
built-in function 
built-in function 
built-in function 
built-in function 
option of ENVIRONMENT attribute 
option of ENVIRONMENT attribute 
option of ENVIRONMENT attribute 
option of GET or PUT statement 
built-in function 
built-in function 
option of ENVIRONMENT attribute 
preprocessor statement 
attribute 
built-in function 
statement 

preprocessor statement 
statement 
attribute 
statement 
statement 

option of DEFAULT statement 
built-in function 
attribute 
statement 
built-in function 
statement, repetitive input/output data 

specification 
preprocessor statement 
format item 

option of GET or PUT statement 
clause of IF statement 
clause of %IF statement 
built-in function 
statement 

preprocessor statement 
condition 
condition 

attribute, statement 
attribute, option of CLOSE statement 
built-in function 
built-in function 
condition 
attribute, option of CALL, DELETE, 

DISPLAY, READ, REWRITE, and WRITE 

statements 
attribute 
statement 
built-in function 
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Keyword 

EXTERNAL 

F(w, [,d[,s]]) 

F 

FB 

FBS 

FETCH 

FILE 

FILE (file-expression) 



FINISH 
FIXED 

FIXED (Xi^XaCxa]]) 
FIXEDOVERFLOW 
FLOAT 

FLOAT (Xit.xJ) 
FLOOR (x) 
FLOW 1 
FORMAT 
FORTRAN 
FREE 

FROM (variable) 
FS 

GENERIC 
GENKEY 
GET 
GO TO 
%GO TO 
HALT 1 

HBOUND(x 1# x 2 ) 
HIGH(x) 
IF 
JSIF 

IGNORE (n) 
IMAG(x) 

IN (element-area- variable) 
%INCLUDE 
INDEX (Xi,x 2 ) 
INDEXAREA [(index- 
area-size)] 
INDEXED 
INITIAL 
INPUT 
INTER 
INTERNAL 
INTO (variable) 
IRREDUCIBLE 
KEY (file- expression) 
KEY(x) 

KEYED 

KEYFROM(x) 

KEYLENGTH(n) 

KEYLOC(n) 

KEYTO (variable) 

LABEL 

LBOUND(x lf x 2 ) 

LEAVE 

LENGTH (x) 

LIKE 

LINE(n) 

LINENO(x) 

LINESI ZE ( expression) 



Abbreviation 
EXT 



FOFL 



GOTO 
95GOTO 



INIT 



INT 



IRRED 



y§§_2£ -Keyword 

attribute 

format item 

option of ENVIRONMENT attribute 

option of ENVIRONMENT attribute 

option of ENVIRONMENT attribute 

statement 

attribute 

option of CLOSE, DELETE, GET, LOCATE, 

OPEN, PUT, READ, REWRITE, UNLOCK, and 

WRITE statements 
condition 
attribute 
built-in function 
condition, condition prefix 
attribute 
built-in function 
built-in function 

statement, option of PUT statement 
statement, option of %CONTROL statement 
option of OPTIONS option/attribute 
statement 

option of WRITE or REWRITE statements 
option of ENVIRONMENT attribute 
attribute 

option of ENVIRONMENT attribute 
statement 
statement 

preprocessor statement 
statement 
built-in function 
built-in function 
statement 

preprocessor statement 
option of READ statement 
built-in function, pseudovariable 
option of ALLOCATE and FREE statements 
preprocessor statement 
built-in function 
option of ENVIRONMENT attribute 

option of ENVIRONMENT attribute 

attribute 

attribute, option of OPEN statement 

option of OPTIONS option/attribute 

attribute 

option of READ statement 

attribute 

condition 

option of READ, DELETE, and REWRITE 

statements 
attribute, option of OPEN statement 
option of WRITE statement 
option of ENVIRONMENT attribute 
option of ENVIRONMENT attribute 
option of READ statement 
attribute 
built-in function 
option of ENVIRONMENT attribute 
built-in function 
attribute 

format item, option of PUT statement 
built-in function 
option of OPEN statement 
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Keyword 

LIST 

LOCATE 

LOG(x) 

LOG2(x) 

LOGlO(x) 

LOW(x) 

MAIN 

MAX(x lf X 2 . . .X n ) 

jyHN(x 1# x 2 . . .x n ) 

MOD(x lf x 2 ) 

MULTIPLY (Xi^Xa.Xal.xJ) 

NAME ( file-expression) 

NCP(n) 

NOCHECK * 

NOCHECK C ( name-li st ) ] 

iNOCONVERSlON 

NOFIXEDOVERFLOW 

iMOFLOW * 

IMOFORMAT 

NOLOCK 

NOMAPC(arg-list) ] 

NOMAPIN[ (arg-list) ] 

NOMAPOUT[ (arg-list) ] 

NOOVERFLOW 

NORESCAN 

NOSIZE 

NOSTRINGRANGE 

NOSTRINGSIZE 

NOSUBSCRIPTRANGE 

NOUNDERFLOW 

tSIOWRITE 

NOZERODIVIDE 

NULL 

OFFSET [ (area-name) ] 

OFFSET (x i# x 2 ) 

ON 

ONCHAR 

ONCODE 

ONCOUNT 

ONFILE 

ONKEY 

ONLOC 

ONSOURCE 

OPEN 

OPTIONS (list) 

ORDER 
OUTPUT 
OVERFLOW 

P 'picture specification' 
PAGE 
%PAGE 

PAGESIZE(W) 
| PASSWORD 

PENDING (file- expression) 
PICTURE 
POINTER 
POINTER (x lf x 2 ) 
POLY(x i: ,x 2 ) 
POSITION (expression) 
PRECISION (X 1# X 2 [ , x 3 ] ) 
PRINT 

PRIORITY (x) 
PRIORITY [ (x)] 



Abbreviation 



NOCONV 
NOFOFL 



NOOFL 



NOSTRG 
NOSTRZ 
NOSUBRG 
NOUFL 

NOZDIV 



OFL 



PIC 
PTR 
PTR(x i# x 2 ) 

POS (expression) 
PREC(x 1/ x 2 t,x 3 ] ) 



U§.e_gf_Keywgrd 

option of GET or PUT statement 

statement 

built-in function 

built-in function 

built-in function 

built-in function 

option of OPTIONS option 

built-in function 

built-in function 

built-in function 

built-in function 

condition 

option of ENVIRONMENT attribute 

statement 
condition prefix 
condition prefix 
condition prefix 

statement 
option of ^CONTROL statement 
option of READ statement 
option of OPTIONS attribute 
option of OPTIONS attribute 
option of OPTIONS attribute 
condition prefix 
option of ^ACTIVATE statement 
condition prefix 
condition prefix 
condition prefix 
condition prefix 
condition prefix 
option of ENVIRONMENT attribute 
condition prefix 
built-in function 
attribute 
built-in function 
statement 

built-in function, pseudovariable 
built-in function 
built-in function 
built-in function 
built-in function 
built-in function 
built-in function, pseudovariable 
statement 
attribute, option of ENTRY and 

PROCEDURE statements 
option of BEGIN and PROCEDURE statements 
attribute, option of OPEN statement 
condition, condition prefix 
format item 

format item, option of PUT statement 
listing control statement 
option of OPEN statement 
option of ENVIRONMENT attribute 
condition 
attribute 
attribute 
built-in function 
built-in function 
attribute 
built-in function 

attribute, option of OPEN statement 
option of CALL statement 
built-in function, pseudovariable 
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Keyword 



Abbreviation 



y§§_2lL]5§. v .22£ d . 



PROCEDURE PROC 

^PROCEDURE 55PROC 

PROD(x) 

PUT 

R(x) 

RANGE 

READ 

REAL 

REAL(x) 

RECORD 

RECORD ( f i le-expression) 

RECSI ZE (r ecord-length ) 

RECURSIVE 

REDUCIBLE RED 

REENTRANT 

REFER (element-variable) 

REGIONAL(l| 2 | 3) 

RELEASE 

REORDER 

REPEAT (x lf x 2 ) 

REPLY (c) 

REREAD 

RESCAN 

RETURN 

RETURNS (attribute-list) 

REVERT 

REWRITE 

ROUND (x 1# x 2 ) 

SCALARVARYING 

SEQUENTIAL SEQL 

SET (locator-variable) 

SIGN(x) 

SIGNAL 

SIN(X) 

SIND(x) 

SlNH(x) 

SIZE 

SKIPE (n)] 

%SKIP 

SNAP * 

SQRT(x) 

STATIC 

STATUS (x) 

STOP 

STREAM 

STRING (x) 

STRING (string-name) 

STRINGRANGE STRG 

STRINGSIZE STRZ 

iSUB 

SUBSCRIPTRANGE SUBRG 

SUBSTR ( Xa. , x 2 [ , x 3 ] ) 

SUM(X) 

SYSIN 

SYSPRINT 

SYSTEM 

TAN(x) 

TAND(x) 

TANH(x) 

TASK 

TASKC (task- name) ] 



statement 

preprocessor statement 

built-in function 

statement 

format item 

option of DEFAULT statement 

statement 

attribute 

built-in function, pseudovariable 

attribute, option of OPEN statement 

condition 

option of ENVIRONMENT attribute 

option of PROCEDURE statement 

attribute 

option of OPTIONS option 

option of BASED attribute 

option of ENVIRONMENT attribute 

statement 

option of BEGIN and PROCEDURE statements 

built-in function 

option of DISPLAY statement 

option of ENVIRONMENT attribute 

option of %ACTIVATE statement 

statement, preprocessor statement 

attribute, option of PROCEDURE statement 

statement 

statement 

built-in function 

option of ENVIRONMENT attribute 

attribute 

option of ALLOCATE,, LOCATE, and 

READ statements 
built-in function 
statement 
built-in function 
built-in function 
built-in function 
condition 
format item, option of GET and 

PUT statements 
listing control statement 

option of ON and PUT statements 
built-in function 
attribute 

built-in function, pseudovariable 
statement 

attribute, option of OPEN statement 
built-in function, pseudovariable 
option of GET and PUT statements 
condition, condition prefix 
condition, condition prefix 
dummy variable of DEFINED attribute 
condition 

built-in function, pseudovariable 
built-in function 

name of standard system input file 
name of standard system output file 
option of ON or DECLARE statements 
built-in function 
built-in function 
built-in function 

attribute, option of OPTIONS option 
option of CALL statement 
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K eyword 

THEN 

1STHEN 

TIME 

TITLE (element-expression) 

TO 

TOTAL 

TP(M|R) 

TRANSIENT 

TRANSLATE (Xi,x 2 [ ,x 3 ] ) 

TRANSMIT (file-expression) 

TRKOFL 

TRUNC(x) 

U 

UNALIGNED 

UNBUFFERED 

UNDEFINEDFILE 

(file-expression) 
UNDERFLOW 
UNLOCK 
UNSPEC(x) 
UPDATE 
V 

VALUE 
VARIABLE 
VARYING 
VB 
VBS 

VERIFY (x lf x 2 ) 
VS 

| VSAM 
WAIT 

WHEN (generic- 
descriptor-list) 
WHILE 
WRITE 

X(W) 

ZERODIVIDE 



Abbreviation 



UNAL 

UNBUF 

UNDF 

(file- express ion) 
UFL 



VAR 



ZDIV 



Use_of_Key.word 

clause of IF statement 

clause of %IF statement 

built-in function 

option of OPEN statement 

option of DO statement, option of repetiti 

input/output specification 

option of ENVIRONMENT attribute 

option of ENVIRONMENT attribute 

attribute 

built-in function 

condition 

option of ENVIRONMENT attribute 

built-in function 

option of ENVIRONMENT attribute 

attribute 

attribute, option of OPEN statement 

condition 

condition, condition prefix 

statement 

built-in function, pseudovariable 

attribute, option of OPEN statement 

option of ENVIRONMENT attribute 

option of DEFAULT statement 

attribute 

attribute 

option of ENVIRONMENT attribute 

option of ENVIRONMENT attribute 

built-in function 

option of ENVIRONMENT attribute 

option of ENVIRONMENT attribute 

statement 

option in GENERIC declaration 

option of DO statement 

statement 

format item 

condition, condition prefix 
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Appendix B: Compatibility with (F) Compiler 



Some features of the PL/I optimizing 
Compiler implementation are incompatible 
with version 5 of the PL/I (F) Compiler 
implementation. The most significant 
incompatibilities are listed below. Except 
where stated, the description given is of 
the Optimizing Compiler implementation. 
Programs which were written for the (F) 
compiler and which use any of these 
features should be reviewed before 
compiling them with the Optimizing Compiler 
to ensure that they will return the same 
results. 

These, and other differences, are also 
given in the programmer's guide for this 
compiler. This general information manual 
also gives some of the implementation 
limitations and restrictions of this 
compiler. The language reference manual 
for this compiler gives full details of the 
implementation of each language feature. 



belonging to other variables. 

The ALLOCATION built-in function returns 
a fixed-binary value giving the number 
of generations of the argument that 
exist in the current task. 

The NULLO built-in function is not 
implemented in the Optimizing Compiler. 
The NULL built-in function can be used 
for offset variables as well as for 
pointer variables. 

The PROD built-in function accepts 
arguments that are arrays of either 
fixed-point or floating-point elements. 
The value returned has the same scale as 
the argument given, except for 
fractional fixed-point arguments for 
which the result is in floating-point. 

The SUBSTR built-in function returns a 
non-varying string. 



Areas 



The (F) compiler holds the length of an 
area in the first 16 bytes of the area. 
The optimizing compiler holds the length of 
the area in a descriptor outside the area. 



The SUM built-in function accepts 
arguments that are arrays of either 
fixed-point or floating-point elements . 
The value returned has the same scale as 
the argument given. 



The DISPLAY Statement 



Ar rays and Structures 



• The maximum length of the reply is 72 
characters. 



• The maximum number of dimensions in an 
array is 15. 

• The maximum depth of a structure is 15, 



Dumps from P L/I Pro grams 



Built-in Functions 



Built-in functions are recognized on the 
basis of context only, so that all 
programmer-defined external procedures 
must be declared explicitly. Built-in 
functions without arguments, such as 
TIME and DATE, must also be declared 
explicitly with the BUILTIN attribute, 
or contextual ly with a null argument 
list, for example: TIME( ). 

For a variable to be a valid argument to 
the ADDR built-in function it must be 
connected and its left extremity must 
not lie within bytes that contain data 



The object-time dump facility of the (F) 
compiler, IHEDUMP, requires a DD 
statement with the ddname PLlDUMP. Its 
equivalent in the Optimizing Compiler, 
PLIDUMP, requires a DD statement with 
the ddname PLIDUMP. The Optimizing 
Compiler will attempt to use PLIDUMP if 
PLIDUMP is not available. 



Entry Names, Parameters, and Ret urned 
Values 



In general, an entry name in parentheses 
causes a dummy variable to be created; 
for the function to be invoked, a null 
argument list is required. However, an 
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entry name argument in parentheses, or 
an entry name without arguments, will be 
invoked if passed to a procedure whose 
parameter descriptor for the 
corresponding argument specifies an 
attribute other than ENTRY. 

External entry names must always be 
explicitly declared. 

Area and string extents in the RETURNS 
attribute or option must be represented 
by a decimal integer constant. 

The maximum depth of nesting in a 
descriptor list in the ENTRY attribute 
is 2. 

An aggregate expression involving 
strings may not be passed as an argument 
unless there is a corresponding 
parameter descriptor in which all string 
lengths are specified as decimal integer 
constants. 

An internal entry constant cannot be 
declared in a DECLARE statement. 
REDUCIBLE and IRREDUCIBLE may be 
specified on PROCEDURE and ENTRY 
statements. A scalar cannot be passed 
to an array parameter of an internal 
entry constant if the parameter's bounds 
are specified by asterisks. 



The ENVIRONMENT Attribute 



LIKE Attribute 



The Optimizing Compiler does not permit 
a substructure to have the LIKE 
attribute when another substructure 
within the major structure is the object 
of a further LIKE attribute. For 
example: 



DCL 



1 


A LIKE C, 


1 


B, 




2 C, 




3 D, 




3 E, 




2 (F) LIKE X, 


1 


X, 




2 Y, 




2 Z; 



In this example, the structure A has the 
LIKE attribute which refers to substructur; 
C in structure B. B also contains 
substructure (F) with the LIKE attribute. 



Programs compiled by the optimizing 
compiler cannot be link-edited with 
object modules produced by the PL/I (F) 
compiler . 



For changes in the ENVIRONMENT attribute 
see "The ENVIRONMENT Attribute" in 
chapter 3. 



Operating System Facilities 



Error Correction 



The error correction logic differs from 
that used by the PL/I (F) compiler. 
Invalid programs that are compiled and 
corrected by the (F) compiler may not 
give the same results on the optimizing 
compiler. 



INITIAL Attribute 



The limitations on the length of DECLARE 
statements impose some restrictions on 
the use of the INITIAL attribute. These 
restrictions are described under 
"Statement Length" later in this 
section. 



The operating system facilities for 
sorting, for checkpoint/restart, for 
generating a return code, and for 
obtaining a dump are all invoked by 

means of a CALL statement with the 
.impropriate entry-point name; tor 
example CALL PLISRTA. Tne entry-poinL 
names, which are listed below, have the 
BUILTIN attribute and need not be 
declared explicitly. 



Facility 

Sort 
Checkpoint/Restart 



Return Code 
Dump 



tlnti y- po int I\'ame 

PLISRTx 
PLICKPT 
PLIREST 
PLICANC 
PLIRETC 
PLIDUMP 



The Optimizing Compiler does not 
recognize the entry names used by the PL/I 
(F) compiler, that is, IHESRTx, IHESARC, 
IHETSAC, IHEDUMx, IHECKPx, and IHERESx. 
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Pictures 



Sterling picture data is not 
implemented. Therefore the following 
picture characters are not allowed: 

G, H, M,, P f 6, 7, 8. 



Preprocessor 



Text replaced by preprocessor statements 
does not have blanks appended to either 
end of the replacement value. 

A parameter descriptor list is not 
allowed in the declaration of a 
preprocessor variable with the ENTRY 
attribute. 

The RETURNS attribute may not be 
specified in a preprocessor DECLARE 
statement. 



Pseudovariables 



For a varying string, the first 16 bits 
of the value of the UNSPEC 
pseudovariable represent the current 
length of the string. 

The pseudovariables COMPLETION, COMPLEX, 
PRIORITY, and STRING are not allowed as 
the control variable of a DO statement. 



if the condition (A=D) is satisfied, the 
condition (C=D) is ignored. This latter 
condition, however, might contain a 
function, which if not evaluated,, could 
give rise to error. 



Return Codes 



The PL/I (F) compiler return code 
facility (IHESARC or IHETSA) allowed 
values greater than 999 to be set. The 
optimizing compiler" facility (PLIRETC) 
allows a maximum of 999 to be set. All 
values above this limit are reduced to 
999 and a warning message issued. 



EEWIND_Option 



The Optimizing Compiler does not 
implement the REWIND option. Programs 
that use this option should be modified. 
Note that the function of the REREAD 
option implemented by the Optimizing 
Compiler is different from that of the 
REWIND option. The main difference is 
that the REREAD option overrides any 
DISP parameter and controls the 
positioning of the magnetic tape volume, 
whereas the REWIND option specifies that 
the DISP parameter is to control the 
positioning of the magnetic tape volume 
according to the subparameter specified. 



Statements 



Record I/O 



READ, REWRITE, and DELETE statements are 
invalid for REGIONAL DIRECT OUTPUT 
files. 

There is no default record format for 
RECORD files. If the record format is 
not specified, the UNDEFINEDFILE 
condition is raised. 



The approximate maximum number of 
statements in a program is 10,000. 



Statement Labels 



A label on a DECLARE statement is 
treated as if it were on a null 
statement. 



Redundant Expression_ Elimination 



The process of eliminating redundant 
expressions could give rise to an 
incompatibility for programs written for 
the PL/I CF) compiler that are 
recompiled by the optimizing compiler. 
For example,, in the expression: 

IF (A=D) | (C=D) THEN ... 



§£atement_Len2ths 



The optimizing compiler has a 
restriction that any statement must fit 
into the work area of the compiler. The 
maximum size of this work area varies 
with the amount of space available to 
the compiler. The limitations on the 
length of statements are: 
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§LE§£§_Available Max^_Statement„Lengths Stream_Transmission 



50K - 60K 
61K - 78K 
Over 7 8K 



1012 characters 
16 00 characters 
3400 characters 



Under VSl or VS2 or when the 3330 is 
used for the spill file the limitations 
on the length of statements are: 



78K - 83K 
Over 83K 



3400 characters 
3 960 characters 



The DECLARE statement is an exception in 
that it can be regarded as a sequence of 
separate statements, each of which 
starts wherever a comma occurs that is 
not contained within parentheses. For 
example: 

DCL 1 A 

2 B(10 r 10) INIT(1,2,3,...), 
2 C(10,100) INIT(dOOO) 0), 
2 (D,E) CHAR(20) VAR, ... 

In this example, each line can be 
treated by the compiler as a separate 
DECLARE statement in order to 
accommodate it in the work area. The 
compiler will also treat in the same way 
the INITIAL attribute when it is 
followed by a list of items separated by 
commas that are not contained within 
parentheses. Each item may contain 
initial values that, when expanded, do 
not exceed the maximum length. The 
above also applies to the use of the 
INITIAL attribute in a DEFAULT 
statement. 

The (F) compiler can use up to 90K bytes 
for its work area. It is possible that 
programs with large DECLARE statements will 
not compile successfully on the optimizing 
compiler although they had compiled 
successfully on the (F) compiler. The 
following techniques are suggested to 
overcome this problem: 

1. Increase the main storage available to 
the compiler, unless the space 
available already gives the largest 
statement length. 

2. Simplify the DECLARE statement so that 
the compiler can treat the statement 
in the manner described above. 



• A filemark (or end of string mark for 
the STRING option) is a valid item 
delimiter for list- and data-directed 
input. An item thus delimited is 
processed intact, and ENDFILE (ERROR for 
string) is raised on attempting to read 
a further item from the file or string. 

• After a GET LIST statement has been 
processed, a file is positioned to the 
next non-blank character or, if this is 
a comma, to the character following the 
comma. A GET EDIT statement following a 
GET LIST on the same file must take into 
account the position of the file. 

• If the variable on the left-hand side of 
an item of data-directed input is based 
or controlled, and is not currently 
allocated, the ERROR condition is 
raised. The NAME condition is raised 
for all other errors (including out of 
range subscripts) detected on the left- 
hand side of data-directed input items. 

• The following sequence: 

DCL SYSPRINT FILE; 



OPEN FILE (SYSPRINT) ; 

will cause the UNDEFINEDFILE condition 
to be raised. Omission of either or 
both statements will result in correct 
execution. The file should be declared 
implicitly or with the attributes STREAM 
and OUTPUT. 



Varying- len2th_strings 



The (F) compiler initializes a varying- 
length string to a null string, the 
equivalent of: 

STR = " ; 

whenever such a string is allocated. The 
Optimizing compiler does not perform any 
initialization of varying-length 
strings, unless the INITIAL attribute is 
used. 
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The following publications describe, in 
more detail, the facilities of the OS PL/I 
Optimizing Compiler, the resident library, 
and the transient library. 

The availability of a publication is 
indicated by its use key , the first letter 
in the order number. The use keys are: 

G General: available to users of IBM 
systems, products, and services 
without charge, in quantities to meet 
their normal requirements; can also be 
purchased by anyone through IBM branch 
offices. 

S Sell: can be purchased by anyone 
through IBM branch offices. 

L Licensed: property of IBM; 

available only to licensees of the 
related program products under the 
terms of the license agreement. 



Companion volume to OS PL/I Optimizing and 
Checkout Compilers: Language inference 
Manual (Order No. SC33-0009), and TSO : OS 
PL/I Optimizing Compiler : User's Guide 
(Order No. SC33-0029) . The three manuals 
form a guide to the writing and execution 
of PL/I programs using the Optimizing 
Compiler and the associated resident and 
transient libraries in the batch and time- 
sharing environments of the IBM Operating 
System. 

The programmer's guide is concerned with 
the relationships between a PL/I program, 
the Optimizing Compiler, and the; operating 
system. It explains how to compile, link- 
edit, and execute a PL/I program in a batch 
environment, and it introduces job control 
language, the linkage editor, data 
management, and other operating system 
features that may be required by a PL/I 
programmer. 



OS PL/I Checkout and Optimizing Compilers : 
Language Reference Manual 
Order No. SC33-0009 

The primary source of information on the 
language implemented by the OS PL/ I 
Optimizing and Checkout compilers. It is a 
reference manual rather than a tutorial 
text, and the reader is assumed to have 
some previous knowledge of PL/I. 

The manual contains information on how to 
write a PL/I source program. For 
information on how to compile, link- edit, 
and execute the program, reference should 
be made to the appropriate programmer's 
guide. 



OS PL/I Checkout and Optimizing Compilers : 

Keyword and Terminal Commands Reference 

Card 

Order No. SX3 3-6 00 2 

Contains a full list of the PL/I Keywords 
implemented by the OS PL/I Optimizing 
Compiler. The keywords are arranged in 
alphabetical order and each has a brief 
description of its use. 



OS PL/I Optimizing Compiler : 
Programmer's Guide 
Order No. SC33-0006 



OS PL/I Optimizing Compiler : 

Messages 

Order No. SC33-0027 

Lists all the messages that may be issued 
by the OS PL/I Optimizing Compiler and the 
associated transient library during 
processing of a PL/I program. Both the 
long and short forms of each message are 
listed where applicable. 

The messages are in three groups: 

• Compile-time messages (generated by the 
compiler during compilation of a PL/ I 
source program) . 

• Execution-time messages (generated by 
the transient library during execution 
of the compiled program) . 

• Prompter messages (generated by the 
compiler when it is used in a time- 
sharing environment) . 

Where appropriate, explanations of the 
messages and suggested programmer responses 
are included. 



OS P L/I Optimizing Compiler : 
Execution Logic 
Order No. SC33-0025 

Describes the object module produced by the 
OS Optimizing Compiler, and explains how 
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the compiled code uses subroutines from the 
associated resident and transient 
libraries. 



The topics covered include program 
initialization r storage management, 
input/output , error handling, and 
interlanguage communication. The use of 
storage dumps for debugging is also 
explained. 

The manual is intended primarily for 
programmers concerned with maintenance of 
the compiler and its libraries. It will 
also be useful for applications programmers 
who require an understanding of the 
processes of execution. 



OS PL/I Optimizing Compiler ; 
Program Logic 
Order No. LY33-6 007 

The internal design of the OS PL/I 
Optimizing Compiler is described in this 
manual, which is written for use by 
programmers responsible for maintenance of 
the compiler. The manual is intended 
primarily as a guide to analysis of the 
program listings by people who are 
generally familiar with the compiler. 
However, overall and component descriptions 
are provided for use by readers who have no 
prior knowledge of the compiler design. 



OS PL/I Resident Librar y; 
Program Logic 
Order No. LY33-6008 

The OS PL/I Resident Library consists of 
standard subroutines that are link-edited 
with object programs generated by the OS 
PL/I Optimizing Compiler. The library is 
used in program management, input /output, 
conversion, and interlanguage 
communication, and also includes many 
computational subroutines. 

This publication is intended primarily for 
use by programmers concerned with the 
maintenance of the resident library. It 
summarizes* under functional headings, the 
internal logic of the libary subroutines, 
and gives brief details of the 
relationships between them. 



OS PL/I Transient Library 
Program Log ic 
Order No. LY33-6009 



The OS PL/I Transient Library consists of 
standard subroutines that are loaded during 
execution of programs compiled by the OS 
PL/I Optimizing compiler* or the OS PL/I 
Checkout Compiler. These subroutines are 
used in error handling, program management, 
and input/output, and to provide storage 
dumps. 

This publication is intended primarily for 
use by programmers concerned with the 
maintenance of the transient library. It 
summarizes, under functional headings, the 
internal logic of the library subroutines, 
and gives brief details of the 
relationships between them. 



OS PL/I Optimizing compiler ; 

Installation 

Order No. SC33-0026 

Intended primarily for programmers 
responsible for installing the OS PL/I 
Optimizing Compiler and the associated 
resident and transient libraries. It is 
divided into four parts that give detailed 
information on installation procedures and 
storage estimates. 



TSO ; 

OS PL/I Optimizing Compiler: 



User's Guide 



Order No. SC33-0029 

This manual is a companion volume to OS 
PL/I Checkout and Optimizing Compilers ; 
Language Reference Manual (Order No. SC33- 
0009) and OS PL/I Optimizing Compiler ; 
Programmer's Guide (Order No. SC33-0006). 
The three manuals form a guide to the 
writing and execution of PL/I programs 
using the Optimizing Compiler and the 
associated resident and transient libraries 
in the batch and time-sharing environments 
of the IBM Operating System. 

The manual comprises two parts; 

• Guide; An explanation of how to use the 
compiler in a time-sharing (TSO) 
environment, and a description of the 
conversational I/O feature of the 
compiler. 

• Command Language: A description of the 
PLI command and its operands. 

The two parts are designed so that it can 
be used independently or its two parts 
included in the TSO publications Terminal 
User's Guide (Order No. GC28-6763) and 
Command Language Reference (Order No. GC28- 
6732) , respectively. 
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Appendix D: Planning Information for CMS 



The OS PL/I Optimizing Compiler and its 
libraries can be used with the Conversa- 
tional Monitor System (CMS) of the Virtual 
Machine Facility/370 (VM/370) . 

The optimizing compiler supports those 
I/O devices that it supports under the 
operating system, provided that these 
devices are supported by VM/370. A list 
of the devices supported under VM/370 is 
given in the VM/370 Planning and System 
Generation Guide. 

A minimum of 32 OK bytes of virtual 
storage is required for the CMS virtual 
machine for execution of the optimizing 
compiler under CMS. 

All PL/I source programs that can be 
compiled by the optimizing compiler under 
the IBM Operating System will be accepted 
and compiled by the optimizing compiler 
under CMS. 

However, object programs produced by 
the optimizing compiler to be executed 
under CMS cannot use the following facil- 
ities: 

• Multitasking 



• Teleprocessing. The TCAM data manage- 
ment facility and the TRANSIENT file 
attribute are included in this 
restriction. 

• INDEXED and VSAM files. 

• The PL/I sort facility. 

• The PL/I checkpoint/restart facility. 

• ASCII data sets. 

• The BACKWARDS attribute for magnetic 
tape files. 

• Spanned (VS-format or VBS-format) 
records. (BDAM) . 

• PL/I FETCH and RELEASE statements. 

These restrictions are execution-time 
restrictions under CMS; they do not apply 
to programs compiled under CMS and ex- 
ecuted under the IBM Operating System. 

For the availability of the optimizing 
compiler under CMS refer to 
IBM Program Product Design Objectives , 
Order No. GC33-0036. 
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Index 



XINCLUDE 

avoiding use of preprocessor 
XPAGE statement 16 
XSKIP statement 16 



25 



20 



18 



abbreviations for keywords 
access methods required 23 
ACOS built-in functions 
ADDR built-in function 

argument, valid 31 
aggregate 

string overlay defining 
aggregates 13 
ALLOCATION built-in function 

returned value 31 
area variable 

length field 31 
array 

addressing optimization by 
defactorization 9 

addressing optimization by expression 
simplification 9 

assignment optimized 11 

dimensions, maximum number of 31 

in same expression as structure 18 

initialization optimized 9 

replacement of constant expressions 
array/structure operations 
ASCII data sets 17 

ASCII option of ENVIRONMENT attribute 
ASIN built-in function 20 
assignment 

array and structure, optimized 11 
attributes, default 

DEFAULT statement 15 
auxiliary storage 

requirement for compiler and 
libraries 21 



based variable 

defined variable 

subscripted or based locator 16 

VARYING attribute 18 
bibliography 35 
block size 

in ENVIRONMENT attribute 16 
branch instructions 

base register allocation optimized 11 
BUFOFF option of ENVIRONMENT attribute 17 
built-in function 

in-line code 10 
built-in functions 31 
BUILTIN attribute 31 



17 



character sets «* 
CHECK condition 

language extension 15 
checkpoint/restart facilities required 23 
checkpoint/restart facility 32 
CMS (Conversational Monitor System) 37 

optimizing compiler restrictions 37 
COBOL option 20 
commerical programs 

effect of optimization 3 
common constant 

elimination of 11 
common control data 

elimination of 11 
common expression 

definition 7 

elimination of 7 
comparison 

data types allowed 20 
compatibility 

between OS and DOS versions of 
compiler 5 

between releases 5 

library subroutines 5 

with PL/I (F) Compiler 31 
compilation 

input/output devices required 21 

machine requirements 21 

speed 3 
compiler 3,37 

optimization 3 

options H 

restrictions under CMS 37 

specifying card-image format output 5 

use with CMS 37 
compiler option, deleted 

temporary reinstatement <4 
condition-handling 4 
CONNECTED attribute 18 
constant exponents 

replacement of 9 
constant expressions 

replacement of 9 
constant multipliers 

replacement of 9 
contiguous storage 

CONNECTED attribute 18 
control programs 

MFT 22 

MVT 22 

VS1 22 

VS2 22 
control programs required 22 
control variable of DO statement 

restriction 33 
Conversational Monitor System (CMS) 37 



Index 39 



conversions 

in-line code 10 



data 

aggregates 13 

types 13 
data aggregates 18 
data list 

matching with format list at compile 
time 10 
data management facilities required 23 
data-directed input 

ENDFILE condition 31 

NAME condition 34 

unallocated variable 34 
data-set organization 

for teleprocessing 17 
DATE built-in function 

machine requirement 21 
debugging aids 

condition-handling 4 

diagnostics 3 

flow trace 4 

on-units 4 
DECLARE statement 

label on 33 

maximum length 34 
defactorization 9 
default attributes 

DEFAULT statement 15 
DEFAULT statement 15 

effect of label 15 
DEFINED variable 

record I/O 17 
DELAY statement 

machine requirement 21 
depth of structure, maximum 31 
diagnostics 3 

length of messages 4 

severity level 4 

specifying inclusion of line numbers 5 

specifying inclusion of statement 
number s 5 
dimensions, maximum number of 31 
DISPLAY statement 

length of reply 31 
division operations 

optimization by repeated subtraction 8 
DO statement 

control variable restriction 33 

special case code 10 
documentation 35 
dummy entry variable 31 
dump 

DD statement for 31 
dump facility 32 
dump, specifying 4 
dynamic loading of procedures 16 



edit-directed transmission 

matching of format lists with data 
lists optimized 10 
elimination of common constants 11 
elimination of common control data 11 



ENDFILE condition 34 

data- and list-directed input 34 
ENTRY attribute 

nesting in descriptor list 32 
entry constant 19 
entry expression 

GENERIC attribute 19 
entry name 

as argument 31 

external, explicit declaration 32 
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